﻿
Imports osi.root.lock

Public Class cd_object(Of T)
    Public Shared ReadOnly c As atomic_int
    Public Shared ReadOnly d As atomic_int

    Shared Sub New()
        c = New atomic_int()
        d = New atomic_int()
    End Sub

    Public Sub New()
        c.increment()
    End Sub

    Protected Overrides Sub Finalize()
        d.increment()
        MyBase.Finalize()
    End Sub
End Class
